﻿Module Module1
  Sub Main()
    Console.WriteLine(opStringa("Mario ", _
        "De Ghetto"))
    Console.WriteLine(opStringa("Mario ", _
        "De Ghetto", True))
    Console.ReadLine()
  End Sub
  Public Function opStringa(ByVal str1 _
          As String, _
          ByVal str2 As String, _
          Optional ByVal tipo _
          As Boolean = False) As Object
    If tipo = False Then
      Return str1 & str2
    Else
      Return (str1.Length() _
          + str2.Length())
    End If
  End Function
End Module

